﻿Public Class Frmconfronta2


    Private Sub Frmconfronta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Size = New Size(Screen.PrimaryScreen.WorkingArea.Width / 2, Screen.PrimaryScreen.WorkingArea.Height)
        Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Right - Size.Width, Screen.PrimaryScreen.WorkingArea.Top)
        For Each item In Form1.ListBox1.Items
            ListBox1.Items.Add(item)

        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Try
            AxAcroPDF1.LoadFile(ListBox1.SelectedItem.ToString)
        Catch
        End Try
    End Sub


    Private Sub Bchiudi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub
End Class